home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
find_var
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
2KB
From wscott Thu Aug 23 15:37:39 1990
Received: by en.ecn.purdue.edu (5.61/1.27jrs)
id AA03373; Thu, 23 Aug 90 15:37:33 -0500
From: wscott (Wayne H Scott)
Message-Id: <9008232037.AA03373@en.ecn.purdue.edu>
Subject: 13
To: wscott (Wayne H Scott)
Date: Thu, 23 Aug 90 15:37:30 EST
X-Mailer: ELM [version 2.3 PL6]
Status: OR
Return-Path: HP-48@VM1.NoDak.EDU
Received: from vm1.NoDak.edu by en.ecn.purdue.edu (5.61/1.26jrs)
id AA08201; Mon, 6 Aug 90 09:39:25 -0500
Message-Id: <9008061439.AA08201@en.ecn.purdue.edu>
Received: from NDSUVM1.BITNET by VM1.NoDak.EDU (IBM VM SMTP R1.2.1MX) with BSMTP id 8575; Mon, 06 Aug 90 09:39:09 CDT
Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.07) with BSMTP id
8568; Mon, 06 Aug 90 09:39:08 CDT
Date: Mon, 6 Aug 90 10:42:00 +0800
Reply-To: HP-48 - HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
Sender: HP-48 - HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
From: Thomas Tschannen <tschannen%phil.UNIBE.ch%CERNVAX.BITNET@VM1.NoDak.EDU>
Subject: SYSEVAL
To: Multiple recipients of list HP-48 <HP-48@NDSUVM1>
Hi,
Q.: Given an expression. How can you work out what variables
there are in the expression ?
A.: Use SYSEVAL addr 353ABh
Example 1:
level 2: 'SIN(X)+5*Y'
level 1: # 353ABh
SYSEVAL
results in
level 1: { X Y }
Example 1:
level 2: 'SIN(COS(sin)+X)'
level 1: # 353ABh
SYSEVAL
results in
level 1: { sin X }
Part of a programm to find the variables in an expression:
DO
DUP
EVAL
SWAP
OVER
UNTIL
SAME
END
# 353ABh
SYSEVAL
Hope somebody else can find this useful.
Thomas.
==================
----------------------------------------------------------------------------
Thomas Tschannen | SPAN: 20579::49203::TSCHANNEN
Physics Institute | BITnet: tschannen%PHIL.unibe.ch@cernvax
University of Berne | INTERnet: tschannen@PHIL.unibe.ch
Switzerland |